100 DV=PEEK(186):IFDV<8THENDV=8
110 PRINT"[147]"CHR$(142)
195 BA=52176
200 POKE53281,0:POKE53280,0:POKE646,1
210 PRINT"[147] [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
220 PRINT " [221]"CHR$(28)" [178]  [178] [213][195][201] [178][195][201] [178]   [178][195][201]  [213][201][213][201] [213][195][201] [178][195][201] [146]"CHR$(5)"[194]"
230 PRINT " [221]"CHR$(28)" [221][213][201][221] [221] [221] [171][178][203] [221]   [221] [221]  [221][202][203][221] [171][195][179] [171][195][203] [146]"CHR$(5)"[221]"
240 PRINT " [221]"CHR$(28)" [221][221][221][221] [221] [221] [221][202][201] [221]   [221] [221]  [221]  [221] [221] [221] [221]   [146]"CHR$(5)"[221]"
250 PRINT " [221]"CHR$(28)" [202][203][202][203] [202][195][203] [177] [177] [173][195][189] [177][195][203]  [177]  [177] [177] [177] [177]   [146]"CHR$(5)"[221]"
260 PRINT " [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
265 GOSUB60000
275 SYS57812"WSCR",DV,0:POKE780,0:POKE781,208:POKE782,203:SYS65493
280 SYS57812"WMAP",DV,0:POKE780,0:POKE781,0:POKE782,168:SYS65493
420 REM PROMPT FOR NEW TIME
430 POKE214,8:PRINT
440 PRINT"   DEFAULT IS 30 SECONDS[145][145][145]"
450 PRINT"   ENTER DELAY TIME IN SECONDS ";:GOSUB50000:DT%=VAL(Q9$)
460 IFDT%<1ORDT%>999THENDT%=30
510 REM POKE DELAY TIME
520 MN%=DT%/60
530 SC%=DT%-MN%*60
540 REM CALCULATE BCD MINUTES
550 MS%=MN%/10
560 LS%=MN%-MS%*10
570 MN%=MS%*16+LS%
580 POKE BA+322,MN%
590 REM CALCULATE BCD SECONDS
600 MS%=SC%/10
610 LS%=SC%-MS%*10
620 SC%=MS%*16+LS%
630 POKE BA+323,SC%
640 REM SELECT RANDOM COLOR START
650 I0=TI:REM GET JIFFY CLOCK TIME
660 I%=INT(I0/70)
670 I%=I0-I%*70
680 I%=I%*2+1
690 POKE BA+936,I%
700 REM ACTIVATE WORLD MAP
710 SYS BA
720 PRINT"[147][159] WORLD MAP IS ENABLED WITH A DELAY OF"
730 PRINTDT%"[159]SECONDS."
740 END
10000 OPEN15,8,15,"S0:WORLD MAP":CLOSE15:SAVE"WORLD MAP",8:END
50000 Q9$="":U9=53280:POKE198,0
50010 GETA$
50020 POKE646,RND(1)*15+1:PRINT"[164][157]";:IFA$=""THEN50010
50030 IFA$=CHR$(13)THENPRINT" ":RETURN
50040 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO50080
50050 IFLEN(Q9$)>=3THENT9%=PEEK(U9):POKEU9,1:POKEU9,T9%:GOTO50010
50060 IFA$<"0"ORA$>"9"THEN50010
50070 Q9$=Q9$+A$
50080 PRINT""A$;:GOTO50010
60000 PRINT"":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="W O R L D    M A P":Z$(1)="BY JOHN CAMPBELL
60040 Z$(2)[178]"V1.0 (C) 1993 BY SOFTDISK, INC."[170][199](13)
60050 Z$(3)[178]"THIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)="OF SOFTDISK PUBLISHING.  IT IS NOT"
60070 Z$(5)="SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)="REPORT ILLEGAL DISTRIBUTION OF":Z$(7)="THIS PROGRAM BY CALLING"
60090 Z$(8)="1-800-831-2694 OR 1-318-221-8718.":POKE214,12:PRINT
60100 FORI=0TO8:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN